1 Imports System.IO
2
3 Public Class frmMainMenu
4
5 Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
6 Dim dt As DateTime = Today
7 lblD.Text = dt.ToString("dd/MM/yyyy")
8 lblL.Text = TimeOfDay.ToString("h:mm:ss tt")
9 End Sub
10
11 Private Sub KitchenMasterToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles KitchenMasterToolStripMenuItem.Click
12 frmKitchen_Section.lblUser.Text = lblUser.Text
13 frmKitchen_Section.Reset()
14 frmKitchen_Section.ShowDialog()
15 End Sub
16
17 Private Sub ItemCategoryToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ItemCategoryToolStripMenuItem.Click
18 frmCategory.lblUser.Text = lblUser.Text
19 frmCategory.Reset()
20 frmCategory.ShowDialog()
21 End Sub
22
23 Private Sub POSPrinterSettingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles POSPrinterSettingToolStripMenuItem.Click
24 frmPrinterSetting.Reset()
25 frmPrinterSetting.ShowDialog()
26 End Sub
27
28 Private Sub RestaurantInfoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RestaurantInfoToolStripMenuItem.Click
29 frmRestaurantMaster.lblUser.Text = lblUser.Text
30 frmRestaurantMaster.Reset()
31 frmRestaurantMaster.ShowDialog()
32 End Sub
33
34 Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click
35 frmAbout.ShowDialog()
36 End Sub
37
38 Private Sub NotepadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NotepadToolStripMenuItem.Click
39 Process.Start("Notepad.exe")
40 End Sub
41
42 Private Sub CalculatorToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CalculatorToolStripMenuItem.Click
43 Process.Start("Calc.exe")
44 End Sub
45
46 Private Sub WordpadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WordpadToolStripMenuItem.Click
47 Process.Start("Wordpad.exe")
48 End Sub
49
50 Private Sub MSWordToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MSWordToolStripMenuItem.Click
51 Process.Start("WinWord.exe")
52 End Sub
53
54 Private Sub TaskManagerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TaskManagerToolStripMenuItem.Click
55 Process.Start("TaskMgr.exe")
56 End Sub
57
58 Private Sub PaintToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PaintToolStripMenuItem.Click
59 Process.Start("MSPaint.exe")
60 End Sub
61
62 Private Sub RegistrationToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RegistrationToolStripMenuItem.Click
63 frmRegistration.lblUser.Text = lblUser.Text
64 frmRegistration.Reset()
65 frmRegistration.ShowDialog()
66 End Sub
67
68 Private Sub LogsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LogsToolStripMenuItem.Click
69 frmLogs.lblUser.Text = lblUser.Text
70 frmLogs.Reset()
71 frmLogs.ShowDialog()
72 End Sub
73
74 Private Sub ChargeTypeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ChargeTypeToolStripMenuItem.Click
75 frmInventoryType.lblUser.Text = lblUser.Text
76 frmInventoryType.Reset()
77 frmInventoryType.ShowDialog()
78 End Sub
79
80 Private Sub TablesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TablesToolStripMenuItem.Click
81 frmTable.lblUser.Text = lblUser.Text
82 frmTable.Reset()
83 frmTable.ShowDialog()
84 End Sub
85
86 Private Sub MenuItemsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MenuItemsToolStripMenuItem.Click
87 frmItem.lblUser.Text = lblUser.Text
88 frmItem.Reset()
89 frmItem.ShowDialog()
90 End Sub
91
92 Private Sub NotesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NotesToolStripMenuItem.Click
93 frmNotesMaster.lblUser.Text = lblUser.Text
94 frmNotesMaster.Reset()
95 frmNotesMaster.ShowDialog()
96 End Sub
97
98 Private Sub BillingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BillingToolStripMenuItem.Click
99 frmBillling.Reset()
100 frmBillling.lblUser.Text = lblUser.Text
101 frmBillling.ShowDialog()
102 End Sub
103 Sub Backup()
104 Try
105 Cursor = Cursors.WaitCursor
106 Timer2.Enabled = True
107 If (Not System.IO.Directory.Exists("C:\DBBackup")) Then
108 System.IO.Directory.CreateDirectory("C:\DBBackup")
109 End If
110 Dim destdir As String = "C:\DBBackup\RPOS_DB " & DateTime.Now.ToString("dd-MM-yyyy_HH-mm-ss") & ".accdb"
111 Dim dlg As New SaveFileDialog
112 con.Close()
113 File.Copy(Application.StartupPath & "\RPOS_DB.accdb", destdir, True)
114 Dim st As String = "Sucessfully performed the Database Backup"
115 LogFunc(lblUser.Text, st)
116 MessageBox.Show("Successfully performed", "Database Backup", MessageBoxButtons.OK, MessageBoxIcon.Information)
117 Catch ex As Exception
118 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
119 End Try
120 End Sub
121 Private Sub DatbaseBackupToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DatbaseBackupToolStripMenuItem.Click
122 Backup()
123 End Sub
124
125 Private Sub DatabaseRestoreToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DatabaseRestoreToolStripMenuItem.Click
126 Try
127 Cursor = Cursors.WaitCursor
128 Timer2.Enabled = True
129 Dim dlg As New OpenFileDialog
130 dlg.DefaultExt = "*.accdb"
131 dlg.Filter = "ACCESS DB|*.accdb|All File|*"
132 If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
133 con.Close()
134 File.Copy(dlg.FileName, Application.StartupPath & "\RPOS_DB.accdb", True)
135 frmMainMenu_load(Nothing, Nothing)
136 Dim st As String = "Sucessfully performed the restore"
137 LogFunc(lblUser.Text, st)
138 MessageBox.Show("Successfully performed", "Database Restore", MessageBoxButtons.OK, MessageBoxIcon.Information)
139 End If
140 Catch ex As Exception
141 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
142 End Try
143 End Sub
144
145 Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
146 Cursor = Cursors.Default
147 Timer2.Enabled = False
148 End Sub
149
150 Private Sub frmMainMenu_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
151 e.Cancel = True
152 End Sub
153
154 Private Sub frmMainMenu_Load(sender As Object, e As System.EventArgs) Handles Me.Load
155
156 End Sub
157 Sub LogOut()
158 Dim st As String = "Successfully logged out"
159 LogFunc(lblUser.Text, st)
160 Me.Hide()
161 frmLogin.Show()
162 frmLogin.UserID.Text = ""
163 frmLogin.Password.Text = ""
164 frmLogin.UserID.Focus()
165 End Sub
166 Private Sub LogoutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LogoutToolStripMenuItem.Click
167 Try
168 If MessageBox.Show("Do you really want to logout from application?", "Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
169 If MessageBox.Show("Do you want backup database before logout?", "Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
170 Backup()
171 LogOut()
172 Else
173 LogOut()
174 End If
175 End If
176 Catch ex As Exception
177 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
178 End Try
179 End Sub
180
181 Private Sub MenuItemsImportExportToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MenuItemsImportExportToolStripMenuItem.Click
182 frmMenuItemsExportImport.Reset()
183 frmMenuItemsExportImport.ShowDialog()
184 End Sub
185
186 Private Sub DeleteInvoiceToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DeleteInvoiceToolStripMenuItem.Click
187 frmDeleteInvoice.Reset()
188 frmDeleteInvoice.lblUser.Text = lblUser.Text
189 frmDeleteInvoice.ShowDialog()
190 End Sub
191
192 Private Sub BillingRecordsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BillingRecordsToolStripMenuItem.Click
193 frmBillingRecord.ShowDialog()
194 End Sub
195 End Class